object SiparisUyariF: TSiparisUyariF
  Left = 336
  Top = 117
  BorderStyle = bsSingle
  Caption = 'Sipari'#351' Uyar'#305' Ekran'#305
  ClientHeight = 530
  ClientWidth = 555
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object wwDBGrid1: TwwDBGrid
    Left = 0
    Top = 25
    Width = 555
    Height = 216
    DisableThemes = False
    ControlType.Strings = (
      'status;CustomEdit;durumuk;T')
    Selected.Strings = (
      'bolumkodu'#9'1'#9'B'#246'l'#252'm'#9#9
      'onaytarihi'#9'9'#9'Onay Tarihi'#9'F'
      'siparisno'#9'9'#9'Sipari'#351' No'#9#9
      'firmaadi'#9'45'#9'Firma Ad'#305#9#9
      'status'#9'15'#9'Durumu'#9#9)
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alTop
    DataSource = SiparisUyariQS
    KeyOptions = [dgEnterToTab]
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 496
    Width = 555
    Height = 34
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      555
      34)
    object bkapat: TBitBtn
      Left = 470
      Top = 3
      Width = 81
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Kapat'
      TabOrder = 0
      OnClick = bkapatClick
    end
  end
  object durumuk: TwwDBComboBox
    Left = 336
    Top = 192
    Width = 94
    Height = 22
    ShowButton = True
    Style = csDropDown
    MapList = True
    AllowClearKey = False
    DropDownCount = 8
    ItemHeight = 0
    Items.Strings = (
      'Bulunamad'#305#9'-1'
      #214'neri'#9'1'
      'X'#9'2'
      'Onayland'#305#9'4')
    Sorted = False
    TabOrder = 2
    UnboundDataType = wwDefault
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 555
    Height = 25
    Align = alTop
    BevelOuter = bvNone
    Caption = 'Bir G'#252'n '#214'nceden Yazd'#305'r'#305'l'#305'p Faturas'#305' Kesilmeyen Sipari'#351'ler'
    TabOrder = 3
  end
  object Panel3: TPanel
    Left = 0
    Top = 241
    Width = 555
    Height = 25
    Align = alTop
    BevelOuter = bvNone
    Caption = #304'ki G'#252'n '#214'nceden Faturas'#305' Keslilipte Okutulmayan Faturalar'
    TabOrder = 4
  end
  object durumu2k: TwwDBComboBox
    Left = 448
    Top = 336
    Width = 94
    Height = 22
    ShowButton = True
    Style = csDropDown
    MapList = True
    AllowClearKey = False
    DropDownCount = 8
    ItemHeight = 0
    Items.Strings = (
      'Okutulmad'#305#9'1'
      'Devam Ediyor'#9'2')
    Sorted = False
    TabOrder = 5
    UnboundDataType = wwDefault
  end
  object wwDBGrid2: TwwDBGrid
    Left = 0
    Top = 266
    Width = 555
    Height = 223
    DisableThemes = False
    ControlType.Strings = (
      'durum;CustomEdit;durumu2k;T')
    Selected.Strings = (
      'bolumkodu'#9'1'#9'B'#246'l'#252'm'#9'F'
      'tarih'#9'9'#9'Tarih'#9'F'
      'belgeno'#9'9'#9'Sipari'#351' No'#9'F'
      'firmaadi'#9'45'#9'Firma Ad'#305#9'F'
      'durum'#9'15'#9'Durum'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alTop
    DataSource = FaturaQS
    TabOrder = 6
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
  end
  object bislemdurum: TBitBtn
    Left = 4
    Top = 496
    Width = 102
    Height = 25
    Caption = #304#351'lemi Durdur'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = bislemdurumClick
  end
  object SiparisUyariQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'tarih2'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'tarih1'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      
        'select U.id,U.bolumkodu,U.onaytarihi,U.siparisno,dbo.getfirmaadi' +
        '(carikod) as firmaadi,null as status into #yeni from unity_sipar' +
        'is_2006 U with(nolock)'
      
        'where U.aktarmatarihi<:tarih2 and U.durum='#39'4'#39' and U.aktarmatarih' +
        'i>:tarih1 '
      
        'and (select top 1 belgeno from fatura with(nolock) where fatura.' +
        'belgeno=U.siparisno and tarih>='#39'01.01.2007'#39') is null and U.yazdi' +
        'rildi is not null '
      
        'and U.siparisiptal is null and (select max(stokkod) from unity_s' +
        'iparishar_2006 with(nolock) where unity_siparishar_2006.siparisi' +
        'd=U.id)<>30'
      
        'and  (select Top 1 stokkod from unity_siparishar_2006 where sipa' +
        'risid=U.id)  <> 7715 '
      'order by U.bolumkodu,U.onaytarihi,U.siparisno'
      ''
      'select * from #yeni drop table #yeni')
    Left = 360
    Top = 56
  end
  object SiparisUyariQS: TDataSource
    DataSet = SiparisUyariQ
    Left = 272
    Top = 56
  end
  object Unity_SiparisStatuQ: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select id,bolumkodu,siparisno,dbo.getfirmaadi(carikod) as firmaa' +
        'di,null as status into #yeni from unity_siparis_2006'
      
        'where aktarmatarihi<'#39'24.08.2006'#39' and durum='#39'4'#39' and aktarmatarihi' +
        '>'#39'19.08.2006'#39' and (select belgeno from fatura where fatura.belge' +
        'no=unity_siparis_2006.siparisno) is null and yazdirildi is not n' +
        'ull and siparisiptal is null and (select max(stokkod) from unity' +
        '_siparishar_2006 where unity_siparishar_2006.siparisid=unity_sip' +
        'aris_2006.id)<>30'
      'order by bolumkodu,siparisno'
      ''
      'select * from #yeni'
      ''
      'drop table #yeni')
    Left = 360
    Top = 128
  end
  object FaturaQS: TDataSource
    DataSet = FaturaQ
    Left = 328
    Top = 304
  end
  object FaturaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'tarih1'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'tarih2'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      
        'select bolumkodu,tarih,belgeno,dbo.getfirmaadi(carikod) as firma' +
        'adi,durum from fatura with(nolock)'
      
        'where tarih>:tarih1 and tarih<:tarih2 and faturatipi=8 and durum' +
        '<>3 and ambar<>9'
      'order by bolumkodu,tarih')
    Left = 400
    Top = 304
  end
  object ServisQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select * from servis'
      '')
    Left = 160
    Top = 328
  end
  object PopupMenu1: TPopupMenu
    Left = 160
    Top = 144
    object ncele1: TMenuItem
      Caption = #304'ncele'
      OnClick = ncele1Click
    end
  end
end
